﻿

Public Class InicioInstitucion
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim perfil As String
        Dim imagfondo As Image = Page.Master.FindControl("ImagFondoCabecera")

        If Not Page.IsPostBack Then
            FG.culturaPaginas()

            'acomodo la imagen de fondo
            imagfondo.Height = 300

            perfil = MI_persona.PersLOgueada.dev_perfilUsuario
            If perfil = "Administrativo" Then
                Me.lblBienvenida.Text = "Usuarios administrativos"
                Me.imgInstitucion.ImageUrl = "~/Imagenes/PerfilAdministrativo.jpg"
            Else
                Me.lblBienvenida.Text = "Profesionales médicos"
            End If

            Me.lblBienvenida.Font.Bold = True
            Me.lblUsuario.Text = "Bienvenido/a: " + MI_persona.PersLOgueada.Dev_ApellidoYnombre
            Me.lblInstitucion.Text = "Institución médica: " + MI_persona.PersLOgueada.Dev_INstitucionDeTrabajo
            Me.lblFechaNac.Text = "Fecha de nacimiento: " + MI_persona.PersLOgueada.Dev_FechaNacimiento


        End If
    End Sub

End Class